home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / wildcat / asend100.zip / AUTOSEND.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-08-21  |  964b  |  101 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  964 bytes  11/15/122  01:49:34am
  3. '! Code Segment Size  :707 bytes
  4. '! Data Segment Size  :5565 bytes
  5. '! String Segment Size:257 bytes
  6. '! Compiled with WCC version 4.10
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 10) As Byte
  12.         l86 As Long
  13.         s90 As String*70
  14.         Filler160(1 To 10) As Byte
  15.         l170 As Long
  16.         s174 As String*70
  17.         s244 As String*8
  18.         Filler252(1 To 12) As Byte
  19.         w264 As Word
  20.       End Type
  21.  
  22.       Dim s4463 As String*70
  23.       Dim i4565 As Integer
  24.       Dim s4567 As String
  25.       Dim s4571 As String
  26.       Dim s4575 As String
  27.       Dim l4579 As Long
  28.       Dim mh4583 As MessageHeader
  29.       Dim ur4903 As UserRecord
  30.       Dim s5553 As String
  31.       Dim s5557 As String
  32.       Dim s5561 As String
  33.  
  34.       Cls 
  35.       Print "@0F@Listserv Autosend Utility v1.00 (08/21/96) - by Pete Nelson"
  36.       Print "Terminal One BBS (510) 689-9528"
  37.       Print "Author: pete@terminal-one.com"
  38.       Print
  39.       Delay 1
  40.       MorePrompt(0)
  41.       If ParamStr(1) = "" Then
  42.         s5553 = "autosend.cfg"
  43.       Else
  44.   118   s5553 = ParamStr(1)
  45.       End If
  46.   127 Open s5553 For Input As 1
  47.       Input #1, s4571
  48.       Input #1, s4575
  49.       Input #1, s4567
  50.       Input #1, s5561
  51.       Input #1, s5557
  52.       Close 1
  53.       s4571 = Trim(s4571)
  54.       s4575 = Trim(s4575)
  55.       s4567 = UCase(Trim(s4567))
  56.       s5561 = Trim(s5561)
  57.       i4565 = Val(Trim(s5557))
  58.       If Not Exists(s4571) Then
  59.         Print
  60.         Print "@0C@"; s4571; " @0F@does not exist."
  61.         Print
  62.         WaitEnter 
  63.         End 
  64.       End If
  65.   293 If Not Exists(s4575) Then
  66.         Print
  67.         Print "@0C@"; s4575; " @0F@does not exist."
  68.         Print
  69.         WaitEnter 
  70.         End 
  71.       End If
  72.   338 Open s4571 For Random As 1 Len = 102 '! This value should probably be replaced with a "SizeOf" expression
  73.       l4579 = 1
  74.       Print
  75.       Do
  76.   366   Get 1, l4579, s4463 '! 102 bytes
  77.         If s4463 <> "<BLANK>" Then
  78.           mh4583.To = s4463
  79.           mh4583.From = s4567
  80.           mh4583.FromId = 0
  81.           mh4583.ToId = 0
  82.           If GetUser(ur4903, mh4583.To) Then
  83.             mh4583.ToId = ur4903.UserId
  84.           End If
  85.   490     If GetUser(ur4903, mh4583.From) Then
  86.             mh4583.FromId = ur4903.UserId
  87.           End If
  88.   530     mh4583.Subject = s5561
  89.           mh4583.Network = ""
  90.           mh4583.Flags = 3
  91.           AddMessage(mh4583, s4575, "", i4565)
  92.           Print "@0A@Sending @0F@"; mh4583.Subject; " @0A@to @0E@"; mh4583.To
  93.           UpdateScreen 
  94.         End If
  95.   635   Inc l4579
  96.       Loop Until l4579 > LOF(1)
  97.       Print
  98.       Print "@0B@Done!"
  99.       Delay 2
  100.       End 
  101.